home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / ACROREAD / SUITE / DW08_S6.APR / SCRIPT / ApproachDoc / Report 2.s (.txt) < prev    next >
Encoding:
Null Bytes Alternating  |  1996-10-27  |  3.6 KB  |  56 lines
  1. '++LotusScript Development Environment:2:5:(Options):0:66
  2.  
  3. '++LotusScript Development Environment:2:5:(Forward):0:1
  4. Declare Sub Switchto(Source As Report, View As VIEW)
  5.  
  6. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7.  
  8. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9. Private Sub BindEvents(Byval Objectname_ As String)
  10.     Static Source As REPORT
  11.     Set Source = Bind(Objectname_)
  12.     On Event Switchto From Source Call Switchto
  13. End Sub
  14.  
  15. '++LotusScript Development Environment:2:2:Switchto:1:12
  16. Sub Switchto(Source As Report, View As VIEW)
  17.     
  18. ' SwitchTo event for a report object
  19. ' * RUNTIME DEPENDENCIES
  20. ' * Files: The report that the script is attached to is a summary
  21. ' * report with a group-by field.
  22.     
  23.     Dim MyGrp As String   ' Store user input.
  24.     Dim Flag As Integer   ' Indicates successful field name entry.
  25.     
  26.    ' Go to the Browse environment.
  27.     CurrentApplication.ApplicationWindow.DoMenuCommand(IDM_browse)
  28.     
  29.    ' Prompt the user for the field name by which the user wants to 
  30.    ' group records.
  31.     Flag = 1
  32.     While Flag = 1
  33.         MyGrp = Inputbox$("What do you want to group by? (Date, Invoice, RepID)" _
  34.         &Chr(10)&Chr(13)&"Date"&Chr(10) _
  35.         &"Invoice", "Grouping", "Date", 300, 300)
  36.         If MyGrp <>"Invoice" And MyGrp<>"RepID" And MyGrp<>"Date" Then
  37.             Flag = 1
  38.             Beep
  39.             Messagebox "Invalid Group Field." & Chr(13) & _
  40.             "Try Again.",0+48+0+0, "Invalid Entry"
  41.         Else
  42.             Flag = 0
  43.         End If
  44.     Wend
  45.     
  46.    ' Change the current summary panels (leading and trailing) to
  47.    ' reflect the new grouping.
  48.     Source.Summary.GroupByDataField = MyGrp
  49.     Source.Summary.MyLPanelFld.Datafield = MyGrp
  50.     Source.Summary.MyLPanelFld.LabelText = MyGrp
  51.     
  52.    ' Go to Print Preview so that the user is prompted to sort on
  53.    ' the new grouping and can see the results.
  54.     CurrentApplication.ApplicationWindow.DoMenuCommand(IDM_Preview)
  55.     
  56. End Sub